home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act5 / 00104.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  384 b   |  15 lines
  1. on exitFrame
  2.   global blist, rlist
  3.   set blist to []
  4.   set rlist to []
  5.   puppetSound("ferris spins")
  6.   repeat with xxx = 7 to 14
  7.     if the castNum of sprite xxx > 0 then
  8.       add(blist, the number of cast (word 1 of the name of cast the castNum of sprite xxx & " r 1") - 1)
  9.       add(rlist, the castNum of sprite xxx)
  10.       next repeat
  11.     end if
  12.     add(blist, 0)
  13.   end repeat
  14. end
  15.